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ABSTRACT 


The thesis discusses the systematic development of a processor 
for a bootstrappable dialect of PASCAL. The formal specifications 
fox each phase of the processing performed "by the processor is presen- 
ted and corresponding rules axe evolved which convert the specifications 
for each phase into a program. The program for the processor is then 1 
synthesized from these specifications with the help of' the rules. The 
phases completed are the lexical analysis, context-free syntax analysis 
and the context-free error recovery. The formalism required for 
specifying the context-sensitive syntax analysis is also included. As 
opposed to normal methods of proof of programs which often become 
involved when the programs are large and complex, the developmental 
effort undertaken here provides straightforward insight into the relation 
between programs and specifications. 


i 



CHAPTER 1 


INTRODUCTION 

1 -1 . MOTIVATION FOR THE CHOICE OF A BOOT STRAP? ABIE SUBSET OP PASCAL ' 

We ace interested in systematically developing a processor for 
(Jensen and Wirth, 74 ) 

PASCAL^ The intention is that we should be able to argue about the 
soundness of the method of development so as to obviate the necessity 
of a proof that the processor meets its specifications. In this 
regard* our attitude is that we would like to consider the formal 
specification of the successive phases of processing performed by the 
processor and stipulate rules of transformation for each of the res- 
pective specifications that convent the corresponding specification to 
a program. In other words, our program is sy stemat ically synthesized 
from the specification itself. This technique would make redundant the 
difficult task of proving large programs correct (Manna 74 )* 

Rather than start with the entire language PASCAL as the scope 
for the processor, we would like to consider a process of stepwise 
enrichment of features of the language s a processor for the simplest 
subset' of the language could be used to implement the next richer 
dialect of the language. 

The choice of a bootstrappable dialect of the language is greatly 
determined by the ''resources available for the task of implementation. 

We already have a PASCAL compiler on the DEG-System-1 0 . So the dialect 
we choose must be of educative value, not only for purposes of the 
development of the processor but also for teaching programming^ a. 
purported goal . in the design of PASCAL. We hope that the dialect 
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ohos „n is neither too small for the. purposes above nor too big for 
implementation c" mini and micro-computer systems in which the cons- 
traints of memory size is often severe# 

1-2. METHODOLOGY OF MMg AHD STEITCTL T HE OF THE THESIS 

We will follow the broad outlines of stepwise enrichment of goals 
set up by (iimnahn 74)* However, as our attempt to justify the result- 
ing code is more stringent, we will differ in technique and detail* 

The process is envisaged to have the following phases: 

1 1 ) lexical Analysis 

2) Context free syntax Analysis 

3) Recovery from Content Free Errors 

4 ) Context Sensitive Analysis 

5 ) Transformations. 

We have been successful in completing the first three phases# The 
formalisms required to tackle the fourth phase are presented. The 
subject matter for phase (*>0, depends on the goals of the processor, 
the toughest to handle being the transformation effected by an opti- 
mizing compiler. 

The next chapter of this thesis suggests the Regular Expression 
(RE) formalism for formal specification of Phase (l). The restriction 
on HE such that they can be deterministically scanned to perform the 
job of Lexical Analys is is discussed. Ruins that concert such restricted 
EEs to PASCAL programs are considered. Soma implementation details are. 
added. The entire specification for the Lexical Analysis component 
.is given in Appendix I. 

Chapter 3 discusses the problem of f carnal specification 'of context 
free syntax analysis. Naturally, the formalism of context Free Grammars 

(CFG) is used. First, we consider a restricted class of CFGs called LL(^(). 

. .. I ■ 
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We consider the notion of the leftmost derivation of a sentence in 
a LL(l ) language. LL(l ) is a deterministic class of CFGs. Now, at 
this stage, a correspondence "between LL(l ) grammars end PASCAL pro- 
grams is proposed such that the execution of the program corresponds 
to a leftmost derivation of the input sentence. Using this corres- 
pondence the entire context free parser is synthesised »$he tjL(l ) 
grammar for PASGAL-B from which the synthesis was effected is given 
in Appendix III* 

Chapter 4 is connected with the problem of error recovery, 

‘Panic mode* error recovery strategy is used* This is achieved through 
sets of synchronizing symbols that are computed from the LL(l ) grammar 
of Appendix HI* The enrichment of the program generated by traa&sformar- 
tions described in Chapter 3 to systematically keep track of the synchro' 
nizing symbols during a leftmost derivation* 

Chapter 5 introduces a formalism called Extended Attribute 
Grammars that has promise for formal specification of Context Sensitive 
aspects of PASCAL and the possibility of integration with transforma- 
tions in Chapters 3 and 4* * 

Gonslusions and suggestion for further work form the last 


chapter of this thesis* 



CHAPTER 2 


LEXICAL ANALYSIS 

2-1 . ETNCTIONS OF THE LEXICAL ANALYSER 

The lexical analyser is the interface between the source program 
and the syntax analyser. The input to the lexical analyser is the 
source program which is a stream of characters. The lexical analyser 
groups these characters into symbols where each symbol can be treated 
as a single logical entity. 

By splitting the lexical analysis and the syntax analysis of 
the source program, the overall design of the processor is simpli- 
fied because the structure of lexical symbols can be specified by 
regular expressions. 

2-2. REGULAR EXPRESSIONS (EE) 

A EE is defined over a finite set of characters, X , c alle d 
the alphabet. A string is a finite sequence of characters from X. 
Symbols of a programming language are strings over the character set 
of the language (Aho and Ullman 76 ) 

Definition 2-1 

The formation rules for EEs are* 

1 . a null string A is a HE 

2. for Taf£,aisaIE 

3* Concatenation of two BEs A and 3, to: it ten AB, is a EE 

4 . Alternation of two EEs A and 3 written A I B is a HE 

5. A* - A | M. l AAA ...is a EE 

6 . only expressions obtained by Rules 1 -5 are regular expressions. 
. We would like to deterministically recognize the REs representing 

the symbols. However, a one-character look-ahead is used. Because of 
this requirement,. weren't rioted the set of HEs to those whidfc can be 
deterministioal 3 y rfe^g^ized* 


4 
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Definition 2-2 

Start (A) * Fox a BE A 

Start (a) «* ( ^ a j a<$Z is a prefix to strings produced by A} ) 

The restrictions on the HEs for deterministic scanning aces 
BE Be strict ion 

AB -if A produoes the null string A then the sets start (a) 

and start (b) must be disjoint. 

A )s the sets start (a) and that (b) must be disjoint* 

The EEs which satisfy the above restrictions can be deterministica- 
lly recognized. 

Bow we can specify the construction rules of P(x) which denotes 
the program schema which r e cognizes the EE X (Wirth 75)* We assume 
that the variable ch is assigned the next character scanned and that 
procedure test (x) verifies the equality ch = x. Start (a) denotes " 


the set of 

starting characters of the EE A« 

X 


(i) a € X 

test (a); read (oh) 

(ii) AB 

PA; P(B) 

(iii) A|B 

if ch <3 start (a) then P(a) else if ch = start 


(b) then P(b) 

(iv) A* 

while ch «• start (a) do P(aV 

* jf r 


We present an example program module generated from the rules* 
From Appendix I, rule* (6), 


identifier **= letter (letter digit)* 

The resulting program module is 

PCidenbifiar) = if ch letter then 
begin read (ch); ' 

while (ch « letter or ch *= «|Sgib) do 
read (da) 

■ end 
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2-3. II'MEtEjlTliCT I OM DETAILS 

The fiinction of the lexical analyse! is 

(a) to remove comment a ana blanks % 

(b) to out pit to the syntax analyse! the value of the next 
symbol in the output f 

(o) to list the data as they axe read. in. 

'The p!ocedU!e GETSIM does the lexical analysis* Three tablo s 

noed to be constructed » The first, WOKD, oontains the string of 

characters forming each reserved word, second, WSIM, contains the 
of 

scalar valuers ach reserved word and the third, SSIM, indexed by 
characters, contains the scalar value corresponding to each character. 

TSKESKlM calls procedure NEXTGH which makes the next character in 
the input stream available in the variable CH-* 

The interface between the lexical analyser and the syntax analyse^ 
is the variable SIM. GETSIM makes the value of the next symbol to the 
input stream available in SIM whenever the syntax analyser calls GETSIM, 
The action of GETSIM depends on whether the first character 
next symbol is a letter, a digit, the symbol 1 or otherwise.. In the 
first case the remaining letters and/or digits of, the next ,syrab%L %§ 
packed into a word and the reserved word table searched. In the las|j| 
case the table SSIM can be used directly to coniPert the dharaefer 
a terminal symbol. 

The lexical analyser constructed is given in Appendix II* 



CHAPTER 3 

CONTEXT -FEEE SYNTAX ANALYSIS 


3-1 - INTRQDTJCTION 

The syntax analysis phase has the following functions 2 * 

(a) to check that the symbols appear in the patterns that 
are permitted hy the syntax? 'and 

(h) to make the hierarchical structure of the incoming' 
symbol stream explicit by identifying the symbols 
that should be grouped together. 

The specifications for this phase can be formally given through 
context-free grammars. 

The syntax analyser constructed is a recursive descent syntax 
analyser* The formalization upon which recursive descent parsers 
are based, follows in the next section* 

Definition 5-1 

A context-free grammar is G = (N,T,Pij.S) where I and T are finite 
sets that represent non-terminal and terminal symbols respective% w aja& 

II and T do not inter sect 5 S, called the axiom is an element of Nj P 
the set of productions, is a set of pairs (A,v) where A is a nonterminal 
and v & 0 IT T)*. *. 

3-2. LL(l ) GRAMMARS * 

The syntax of the language being processed can be specified, by a 
restricted class of CFGs called Ll(l ). 

A CFG is said to be Ll(l ) if a one -look ahead symbol is always 
sufficient to choose between productions of the grammar which, have the 
same left-hand side while parsing a sentence in the language defined by 
the grammar (Backhouse 79) * 

7 
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Now wa will present a number of definitions which lead to a formal 
definition of LL(l ) grammars. 

Definition 5-2 

Lot G “ (N,T,P,S) be a grammar. L string w : is directly derived 
from a string w if and only if w - sut 5 w 5 = svt and u-$>v is a product ic 
of G , where s and t are arbitrary strings. 

De f it: it ion 5-5 

A string w l is derived from w if either w : - w or there is a sequenc 
of strings Wq,w^ s .... w^ ’such that w = w Q , w< = w^ and w\ directly 
derives w\ + ^ for each i r 0 ^ i <n» The sequence 

W 0 S ^ W 1 = ^’ W 3 ^ *** ^^n 

is called a derivation sequence of length n.* 

Definition 5-4 

Let G <= (NjTjP.S) be a CFG* The functions NDLMBEE, PIEST.and' 

FOLLOW are defined, on H II I as follows s 

NULLABLE (x) = true if X =$>* A.. 

- false otherwise 

FIRST(x) = -£'t | ter and X -=}* tw for some w^ T* J 

POLLOW(x) - { t ( t & T and S ^ u X t w for some 
u £ T* and w <s T* J 

Definition 5--5 

The function LOGOIGLD is defined on the production of G by 

lookahead (a-^x 1 x 2 ... x m ) 

= ' U FlBST(X i ) U '(if NULLABLE (X 1 ■ ' Xj then 

1 s:b - p i FOLLOW (A) 

else $) 

where P,. denotes 1’ i i i n and NULLABLE (X^ ; X^_^ ) 
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Definition 5-6 

The grammar rs strong LL(l ) if and only if for eaoh pair of 
distinct production .1 — *p and A-t* , say, having the sane left-hand 
side , 

LOOKAHEAD C& ~ ! ? *) H LOOKAHEAD (A -> £) = ( 

The gramsr given in Appendix III is strong LL(l). Now we show the 
correspondence between an 11(1 ) grammar and a recursive descent parser* 


3-3 * COBHESPOKDANCE BETWEEN JLL(i) SRMJt AND A BE 3URSI7E DESCENT PAEISEB 


Consider an Ll(l ) grammar G = (N,T,P,3)» Construct a recursive 
descent parser program such that for every AS I a procedure ; pA is declare 
and for every a SI, a is scanned by the lexical analyser* 

The body of pA is constructed from all p 6P such that p is of the* 
form (a,v) where v = (N IT T}*. 

The rules for constructing the procedure body follows* 
v Program construct 


1* AB where A,B€N p(A) § p(b) 

2.'A|B if (symbol = FIRST(a)) then p(A) 

else p(B| • 

3* (A)* while (symbol = PIBST(A)) d£. pA* 

Now we shall show the relationship between KD parsers and a left- 
most derivation sequence. 


3-4* LtlFP-MOST DERIVATION SE QUENCH AMD THE ACTIONS OP A EE PARSER 

If is a left-most derivation sequence, then 

we know that a^ is obtained from by applying a production to the 
leftmost nonterminal in a. for all i, 0 .< iC m-i* 

A recursive descent parser, the procedure for the axiom of the 
grammar starts out by inspecting the current input and selects a productic 
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to h r applied* Since the language is LL(l ) this choice is deterministic 
and is equivalent to transferring control to a procedure for the non- 
terminal appearing at the leftmost position of the rhs of the production* 

When the current input symbol matches the leftmost symbol of the while 

K 

applying a production? the input is advanced* At any point during compi- 
lation the state of the parser is represented in the symbols scanned so 
far concatenated with the parser's continuations. The state of the 
parser represents a leftmost derivation and the sequence of actions of a 
recursive descent parser corresponds to a leftmost derivation sequence. 

Based upon the theory of this section and Section J-3, the syntax 
analyser c.an be implemented. 

3-5 - . Mggm BBT AILS 

The syntax analyser is of the recursive descent type. It is impli^ 
mented as a collection of recursive procedures. Each procedure corres- 
ponds to a nonterminal symbol of the LL(l.) grammar defining the syntax 
of uhe grammar. 

The syntax analyser given in Appendix IV is synthesized hy writing 
a procedure for each nonterminal of the grammar given in Appendix III. 

i 

The syntax analyser has available a procedure CHECKSUM which has two 
parameters. The first parameter is the value of the expected symbol and 
the second parameter is an error number which indicates the error in case 
the input symbol does not match the expected input symbol. A boolean 
function TESTSIM is also available to the syntax analyser which returns 
true in case the current input symbol available in the variable SUM matches 
the symbol passed to the function as a parameter. 

For reporting the error we have a procedure ERROR which has a 
parameter which is the e rror: number » 
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procedure CHECKSUM (CSYM ; SYMBOL? ERR? integer) ? 
begi n if TESTSYM(CSYM) then GE'TSYM 

kir shror (ERR) 

end? 


Siainanly, a 130011.0011 function. TESTSYMINSET is available which returns 
tnue if the current input symbol belongs to a set of symbols passed as 
a parameter to this function. TESTSYMIHSET is used when a particular 


action of the pansen depends upon the input symbol being one of the 


symbols of a set. 


The body of the syntax amalysen consists of a call to the procedure 
GETSYM to initialize SIM, followed by a call to pnocadune PROGRMHEADER* 
than a call to BLOCK followed by a check YE ST SIM (PERIOD)* This corros- 
ponds to the pnoduction fon the starting nontenminal <progran > * 
<(program> s:= <prograri> <progrsi 7 iheader > <block> * 

How wo will give an example of a pansen procedure* 

Example 5 -1 

Prom Appendix III, Rule ( 51 ), we have 

^STATEMENT > :s= being < STATLIST> end 
j if <IFSTAT> 

| while <WHHESTAr> 

J repeat <RSPEATSTAT,>’ 

J^HDEFIIEIER ><OTHSRSTAT> 


The procedure appear® as 


procedure STATEMENT? 
being . 

. -if TESTSYM (BEGIHSYM) then 
" begin GETSYM? STATLIST? 
CHECKSIM (ENDSIM, 1 3) 


end 

else if ‘TESTSYM (lESYM) the£ 
; - "begin GETSYM; IFST-AT . 



end • 

else i£. TESTSYM (iHHESYM) then. , 
begi® GETSYM? WHUESTAY 



ffiSYK (sm M 2 SW) then, 
begin GETSYM? BE£EAT?EJ^ 



i£ TESTSYM (KENT) then 
b egin. GETSMj OTHERS I A? 
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EBMiiRKS 

Though the juntas of the language is nontrivial; the task of 
constructing a syntax analyser, once we have the LL(", ) grammar, is 
very simple. 



CHAFEER 4 

SIKD4X ERROR RECOVERY 
4“1 • WHY ERROR EEGO^KY 

The syntax can be praeisely defined using context -fie e' grammars . 
Therefore , an y error in context-free syntax can be dot acted by the 
syntax analy se r « Exxon re covery is de six able because compilat ion 
should be completed on flawed programs at least thiough the syntax 
analysis phase, so that as many exxois as possible oan be detected in 
one compilation* Recursive descent parsers have the valid prefix 
property, i.e they announce error as soon as a prefix of the input 
has been seen for which there is no valid continuation* 

A good error recovery scheme should have the following properties* 

(a) it should pick up immediately after the detection 
of an error? 

(b) should not emit unjustified error messages, and 

(c) no error should escape its detection. 

The recovery scheme used is the 1 panic mode T error recover 
(immann78j Backhouse 79)* Bn panic mode, the parser discards input 
symbols on encountering an error till it finds a •synchronizing 1 symbol. 

A synchronizing symbol is a symbol which can legally follow the current 

\ 

state of the parse* Control of the parser is then allowed to proceed 
to the point at whioh the symbol is expected and the parsing resumed. 
4-2. IMPLSME1E.AT10N RETAIL 

The error recovery is based on a procedure having two parameters . 
One of them is ESYS1 which is the -s§t of symbols which are expected to 

follow the current state of the parse. The other set of symbols FSYS2 

\ * ' 
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denotes the symbols which can synchronize the action of the parser 
with the inpat symbol in case the S YM is incompatible with the current 
state of the parse. 

The two symbol set s arc of 
type SYMS1T = set of SYMBOL 
and the procedure reads 

procedure TESTQsySI. FSYS2 s SYMSET 5 ERR? integer); 

' begin if not TESTSYMINSET (PSYS1 ) then 

begin EKROR(EKE0i FSYS1 s= FSYS1+FSYS2; 

while not TESTSYMHSET (PSYS1 ) do GETSYM 
end 

bad; 

F0M5LISK BEHIND THE P YRAMETERS FSYS1 MB F8YS2 OF THE- PROCEDURE TEST 
The parameter FSYS1 contains the FIRST symbols of the nonterminal 
for which parsing is to be done whereas FSYS2. contains the FOLLOW symbols' 
of the nonterminal. 

The definition of -the. 3 ets FIRST and FOLLOW ares 
For a context-free grammar G - (l,T,rP,S) with no useless produc- 
tions, the FIRST and POILOW on IT R T is defined as given in Definition 3~4* 


The set' FSYS2 contains the synchronizing symbols. The procedure TEST 
ad justs the input string after detection of am error. 

Now we come to the rules for implementing this error recovery 
scheme t 

Cl ) Every parser procedure has parameter (-FSYS of type- 
SYIvISET j f through which the procedure- is informed 
of the symbols which should not be skipped over during 
the call. The initial value of FSYS,- passed to the 
procedure which corresponds to the starting non-terminal 
of the language 9 is the empty set. Subsequently,, when 
procedure pB is called from within pA then the value of 
FSYS passed to pB is the union of the value of FSYS 
passed to pA and the set of terminal symbols which- are 
tested within pA following the call to p®, i .e ., the 
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subset of FOL£0 W(b) which is derived from the produc- 
tion of A which corresponds to the sa looted path in 
procedure pA# 

(2) TEST is called at the beginning and end of each non- 
terminal procedure except when the logic of the 
program makes the call unnecessary* If procedure pA~ 

Is called unconditionally and if pA does not immedia- 
tely call another procedure pB, then HEIST is called 
on entering pA. 

( 3 ) lest is called before la nving procedure pA unless the 
last action of .pA was a call to a procedure pB. 

From the above set of rules, we see that the handling of the 
syntactic errors is ultimately done by the called procedure*' But the 
the calling procedure has full control over the error recovery in the 
called procedure due to the value of PSYS It passed to the ©allied 


procedure* The value of PSYS passed to a procedure depends upon the 
syntax of the nonterminal* 

How we can mechanically with the help of the above rules enrich 


the syntax analyser develop! d in Chapter 3 to recover from errors* 

The syntax analyser with error recovery is shown in Appendix V* 

How wb present an example which illustrates the points made above* 
Example 4-1 

Prom Appendix III, the syntax from Hula (3*“3) $s- 

<;EXEBESSI0H> t := ^S.HIEXP/ 

j*<S lMlI B> '^E10PS> <STfflXS > > 

The corresponding procedure is - 

procedure EXPHESSIOH (PSYS s SY MSEP.)f 
begin. S3ME5XP (PSYS- + BELGPSYSSS)* 
if; TESTSYMIHSET (KSIiOBSYMS) then - 
begin . GETSYMi 
SBJBXE (PSYS) 
enC- 



in 


FEM1RKS 

(i) Since SlvEXP is called from EXPRESSION, the sat of 
follow symbols passed to S3MEXP include the terminal 
symbols which are tested after the call* 

(ii) No call to procedure TEST at the beginning and at the 
and of the proedure exists because tho logic of this 
procedure makes the call unnecessary 

4-5* £ DViaU43ES OP THE ERROR RECOVERY SCHEME 

This scheme of error recovery has the following advantages: 

(a) It is simple to implement 

(b) It can never get into a loopbe cause any recovery action 
eventually results in an input symbol being consumed 

or the implicit stack (the suspended procedures) being 
shortened if the end of the input has been reached. 



CHAPTER 5 

CONTEXT SEITSITIVB ANALYSIS 


5-1 • HfTRODUCTION 

The context-free syntax of a language is inadequate for it cannot 
sxjg cify the context-sensitive features • For example- the context- 
sensitive features of PASCAL like operator /operand type compatibility, 
type equivalence, identifier scope and the declaration-before-use rule 
have to be incorporated in the language definition in English (Jensen 
and Wirth 74)* However , there do exist formalisms that are addressed to 
such tasks, The best known formalism is that of context-sensitive 
grammars . Whereas the Context Sensitive Grammars are adequate for the 
formal specification of the task, they are not well-suited for our 
purpose on two accounts: 

(i) A pars e of a sentence in a context sensitive language 
cannot bo simply depicted by a parse -tree. It will 
have to be represented by a complex graph that is messy 
to draw and comprehend » This lack of simplicity in 
concep + aalisation has been a ma^or cause for the disuse 
of context sensitive ■ Grammars in the formal specif ica- . 
tion of programing languages. 

(ii) There is no simple mechanism of extension of CFGs, on 
which our entire developmental effort has been pre- 
dicated, which absorbs the context sensitive aspects and 
leads -to a context sensitive grammar* 

For these reasons, there has been a strong tendency- to preserve ii*|. 
context-free core of the formal specification in the extensions proposed.. 

A well known extension of CFGs to handle other than context-free 
aspects is that of Attribute-Grammars (AG) (Knuth 66) . This extension is 
powerful enough to define not only the context sensitive aspects of a 
programing language but also its semantics. 


17 
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Cur efforts towards a. formal specification of the Context-Sensitive 
aspect of a programming language start with the use of AGs. As AGs are 
more general than necessary for our purpose, we look for a two fold 
restrictions 

(i) We would like a direct relationships "between the 
laftnc st -derivation process and the evaluation of 
attributes . 

(ii) \7e vrould like to restrict the attribute domains such 

that we can consider the definition of context-sensitive 
aspects of the language in question but not necessarily 
its semantics. 


The first restriction is made -possible through the use of li- 
lt tribute d Grammars (Lewis Rosenkrantz and Stearns 77) and the second 

■ 

through the use of Extended Attribute?' Grammars ('i7att and Mad ren 77,79) • 
1; vc look for a synthesis of these two systems to satisfy our purpose. 

5~2* ATTRIBUTE GRAMMARS 


An Attribute Grammar may be defined as 

AG = <1,T,SA,IA, PA, S> 

where H,T and S are as in CPGs and 

SA is a set of synthesized Attribute lames 
IA is a sat of Inherited Attribute lames 
PA is a set of Attributed Productions of the form 
«A.,IA*,SA* > ,<7*, ABR*» 
where 1 I 

and. AER are Attribute Evaluation Rules expressed in 
some algor ithmic language . 

fhe interpretation of a AG- definition is the followings 
Construct the parse tree of a sentence by using the CEG embedded in* 
the AG. Annotate each non-terminal in the tree by the corresponding lists c 
Inherited and Synthesized Attribute lames. 'This information is available 
from the first e lament of the pairs in PA? Associate the ' corresponding 
ASRs also with the nonterminal node •> low find an ordor of evaluation of 



the AJERs ' such that all the inherited and synthesized Attribute Hames 
that" annotate the internal nodes of the true have defined values. 

A classical difficulty concerning AGs, pointed out by Knuth in his 
definitive paper (Knuth 68) is that the AERs may be circular, a fact 
that can be algorithmically detected. 

5-3* SB GBimaS (LEWIS RESEMRA1TTZ and STEARNS 77) 

Several restrictions may be imposed on AERs such that 

(i) non-circularity is guaranteed 

(ii/ an order of evaluation of AERs can be known in advance. 

As we suppose that AGs are to be used in conjunction with some parsing 
technique, the order of evaluation of the AERs can be tied to the order 
of traversal of the parse tree that is effected by the parser. Restrict- 
ing the AERs such that no undefined attributes (inherited or synthesized) 
exist at this point of their evaluation (dictated by the order of traversa 
will rule out circularity. 

L-Attributed Grammars result from restrictions of order of traversal 
that arise from Recursive Descent Parsing. 

5-4* E XTENDED ATTRIBUTE GRAMMARS (EA&) •. 

The difference between AGs and EAGs is that the attribute positions 
in an EAG rule may be occupied by attribute expressions rather than by jus 
attribute variables (Watt and Madsen 79) * 

i 

An EAG is defined as (Watt and Madsen 79) 

G = <D,T f Z,B,R> 

where D = (d 1 ,B2, f1,f2, ...) is an algebraic structure with 

domains Jh ,D2, ..., and (partial) functions fl ,f2, »* » Derating on 
Cartesian products of these domains* Each object in one of these domains 
is called an attribute * 


Y is the vocabulary of G, a finite set of symbols which is parti- 
tioned into the nonterminal vocabulary Y^. and the terminal vocabulary Y^,» 
Z is the distinguished nonterminal of G, i«o •, the axioms symbol* 

It is assumed that Z has no at tribute -posit ion and that no terminal 
symbol has any inherited attribute positions* 

B is a finite collection of attribute variables. Bach variable has 
a fixed domain from D» 

S is a finite set of production rule forms. 

The interpretation of a EAG definition is the following* 

Let F : *= 3JV . .... F be a rule. Take a variable x which occurs in 
» m 

this rule , select any attribute a in the domain of x, and systematically 
substitute a for x throughout the rule. Repeat such substitutions until 
no variables remain, then evaluate all the attribute expressions. Provi- 
ded a ll the attribute expressions have defined values, this yields a 
production rule : 

4 

A s:= A. ... 

whore m = 0 and A, A^,^? * •», are attribute ^rnbols, A being an 
attributed nonterminal. 

A terminal production of A is a production of A which consists 
entirely of attributed terminals. 

A sentence of G is a terminal production of Z. 

The lang uage generated by G is the the set of all sentences of (J. 
5-5 , WTTOTRfFPB pnWATT'T TUBS AKD THE OPERATIONS HESFIREL ON THEM 

The domain types, used in the EAG definition for PASCAL CWatt and 
Madsen 79), defined are the following* 
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Cartisian Products 

If , ..., T n axe domains and g n ace distinct names, then 

P = (&j ! ^5 ***.? g n *• T n ) 

is a Cartesian product with field selectors g^ , g^* 

The composition function for the. Cartisian product P is: for evea^ a, 
in T.j, and every a n in T^, (a^, . a^) is in P. 

Discriminated Unions 

If T.j , T r are domains (or Cartisian products of domains) and 

g^, ..., g^ are distinct names then , 

u =(g-j(^)| ••• |s n (® n )) 

is a discriminated union with selectors g^, g^« 

For every i = 1, • *., n, and for every a.^ in T^ g i (a i ) is in IT* 

These g^ are the composition functions for the discriminated union U • 

Sets 

If D is a domain, then 

S = powerset D, 

is the domain of subsets of D. 

' The operations defined are union (u) and test for membership (£ ) 
and disjoint union (Ti0 . For each s^ and in S, s^ Sg is the .union of 
s.j and s 2 if and are disjoint, but is undefined otherwise. 

Maps 

If D and H are domains , then 

M~ 1-^ E 

is the domain of (partial) maps from D to E* 

, N * ' 

For every d in D and m in M, m £dj either is defiip^ ^ ^.undefined* 

■MKSl Ugg Afigf 
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For each m and m 2 in M, N n 2 is the disjoint union of mj and 

(el 13^ mu) L&j “ if BU is defined 

then nij j„dj 
else Eg td] 

For each nwj and m 2 in 1, m^n^ is the map overridden by u^r i.a«, 

(mA nu) [ *» if mu [ cPis undefined 

1 than maa] 

else agCdJ- 

Sequenoes 

If D is a domain, then 

S - D* 

is the domain of sequences of elements of I)« 

If s.j and s 2 are in S, then R s 2 denotes the sequence obtained 

hy concatenating and s 2 » 

The domains defined are, for example 

Environ = Name -^Mode 

Mode = (kind s Kind, type : Itype) 

Kind = (const 
I type 
Ivar 

♦ 

(field) 

Consider the E AG definition for ^constant definition list > 

Constant definition list ^ NONLOCAIG L0GA1S1 \ L0CALS2)> 

i •= ^/constant definition ^NONLOCALS ^LOCAISI f L0CALS2^"; rt 
j < constant definition list $ N011L0CALS ' 4 L0CA1S1 f LOCALS>*j« 

, ^constant definition ^ NONLOCALS ^ LOCALS f L0CAIS2 ^ 1 
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The attribute variables used in the above production all belong to 
the domain Enviarn, The synthesised attribute positions are denoted by 
■'T' whereas the inherited attribute positions are denoted by 4 • 

The EAG definition of PASCAL given is suited fox LR parsing since 
there is left -re curs ion involved* 

5-6. L-EXTEiiTED ATTKCBUTB GRAMUR (it-BAG) 

Our parsing strategy of top-down left-to-right parse tree traversal 
makes the EAG definition available not suitable for implement a|ion of 
the context-sensitive analysis phase. 

The following two conditions can help mould, the existing EAG forma- 
lism to be more useful for our purpose . 

(i) ¥e propose that the productions of the EAG be restricted 
such that no left-recursion is allowed. 

(ii) Then we impose the restriction of L-attribute grammars of • 
attribute evaluation to get the L-EAG. 

Por example, the earlier E AG production can be written in L-EAG as 

constant definition list j NONLOCA1S l LOCALSI f LGCALS2 > : :*> 

^Constant definition ^ U0HL0CA1S 4 LOCALSl j 10CAIS2> "5" 

| <const ant definition 4 EOHLOCAiS LOCALSl f LOCALS > 

•^constant definition list J NONLOCALS | LOCALS f LCCALS2 > 

How we stipulate the rules v/hich transform an L-BAG for PASCAL PGR 

implementation. 

5-7. J.CP1EMEHTATI0H HOLES POR OOHTEXT-SEHSITX'yE ANALYSIS USING IHUfl . 

lepbiiiions 

The recursive descent syntax analyser {Appendix V) can be enridhed 
for context-sensitive analysis by the following rules* 
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) Inplen anting the domains of the attribute variables and the 
operations defined upon them. This is a data structuring problem* 

(2) For each attribute -posit ion of a nonterminal, introduce para- 
meters to the corresponding procedure. Since inherited attributes convey 
information down the perse tree, the parameters corresponding to inheri- 
ted attribute positions can bo value parameters. Whereas, var parameters 
are included for synthesized attribute positions since the info mat ion is 
passed up the parse tree. 

(3) Evaluate the attribute expressions within procedure at the end 
of each path representing a production* 

(4) Introduce local variables for preserving the inherited attribute! 
within a procedure and also to construct synthesized attributes local to 
the procedure. 

The L-E4G definition of' 'PASCAL was attempted by us* However, due 
to some parts of it concerning type declaration and procedure do clar at ion s 
being incomplete, it has not been included* 



CHAPTER 6 


CONCLUSIONS 

An attempt has been made to develop sy stenat ically a language- 
processor with the techniques available in the literature with the 
goal of formalism at every stage of the development* 

This experiment of formalisation-before -development has been 
found to be usable and effective* 

Further work in this direction may include the complete L-32AG 
definition of PASCAL. Also the problem of transformation, the l&st 
phase of the development, poses a tough task with the questions of 
semantic equivalence and compiler correctness. 
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APPENDIX I 


Specification for the LEXICAL ANALYSIS PHASE 

<LETT£R> ::r AlBlCIDl&lFIGIHIIlJlKILlMlNIUlPiglRISlTlUIVl'WIX 

alblcldlelflgfhllljlKlllralnlolpIqlrlsltfulvlwIx 
< D T G I T > : S = 0|1|2|3|4|5|6|7|8|9 
<UETTER OR DIGIT> ii« <LETTER> I <D1GIT> 

* 

<ID£NTIFI£R> l i = <L£TTER> <LETTER OR DIGIT> 

* 

<NUMBER> 5 is <DIGIT> 

<IHTNUM> ! :« <DIGIT> <NUMBER> 

<,SIGN> I is + | - 
<FRfcCTION TAIL> i !S <EMPTY> 

I E <SIGN> <INTNUM> 

<FRACTION> ii» <1NTNUM> FRACTION TAIL> 

<REALNUM TAIL> *t« , <FRACTION> 

I E <SIGN> <INTNUM> 

<REALNUM> it* <INTNUM> <REALNUM TAIL> 

<RESERVED WORD> i i= and I array I begin I const I dlv f do l 

else I end t file I forward I function I 
if I in I mod I not J of l er^f pacfced 1 
procedure j program I record I reneat I 
set i then I type I until I var d while 
<8INGLE CHARACTER SYMBOL> » t« + J - j * j / j J | » J J I 

<DOUBLE CHARACTER SYMBOL> it* >* I <* I <> t !*• ' v 

CLEXICAL SYMBOL> il* <IDENTIF|ER> » CRESERVED W3RD> I «IWfW 

t <REALHUM> I <SINGLE CHARACTER SYMBOL 
I <DOUBLE -CHARACTER SYMB0L> 

<EMPTY>,U» . 



APPENDIX II 


LEXICAL ANALYSIS PROGRAM 


RW * 28? 

* IQ .* 

AX * 132? 


* NO. OF KEYOWRDS *) 

♦ NO. OF SIGNIFICANT CHARS' in IDENTIFIERS *) 
C* MAX LINE LENGTH *) 


ERRMESSs ' **** CONGRATS! 
ES” ERRORS DETECTED '? 


YOU WIN UNO ERRORS DETECTED 1 


MRCJL s 

•f'NULj 1 :DENT, INTNUM-REALMUM, PLUS, MINUS, TIMES, SLASH. POINTER. 

LPAREN ,RP AREN.LBRACKET, RBRACKET.EQSYM ,NESYM , LTSYM.EOFSYM , 
kl^l^lSYM.GESYM, ASSIGN, COMMA, PERIOD, SEMICOLON, COLON. 
§^. I ,^A A L D §rJ/ 0KS ,*3/ NuT 5YM,DIVSYM,MODSYM,OEGlNSYM,ENDSYM.IFSYM, 

t h ensym,elsesym ( whilesym,dosym,repeatsym,untilsym,cqnstsym, 

„ ;se&SIS:2ftSRS9A A KSS»R:$S8{&:$8K8SSSSSAtSS$5SST;’ clluy -' 
S^,l! c S? t, s?5SaL cl ”" u 04 char> 

ORDARRAYS array Cl.,NqRW] of ALPHA? 

MBOLARRAys array EI.,NORW3 of SYMBOL? 

ARARRAY* array t char I of SYMBOL? 

JSIUESS Packed array [J..LWAX3 of char? 

NEPOINTEr- Q..LMAX? 

UNTOFERR=1.,IOO? 


S ALPHA? 

s char? 

M l SYMBOL? 

RD : KWOROARRAY? 

YM i SYMBOLARRAy? 

YM l CHARARRAY? 

NE * PRINTLINE? 

»LL* LINEPOINTEr? 
RCOUNT * COUNTOFERR? 


LAST CHAR READ *) 
LAST SYMBOL READ *) 


edure HALT? 

ealn 

nd? 

edure ERRORCN? tntegar)? 
onst 

ERRMES»' ERROR '? 
ealn 

MRITELN { OUTPUT, ERRMESfN) ? 
WRITELNCm ,ERRMES,N) | 
ERRCOUNTl*ERRCOUNftl 
nd? 

edure nextch? 

unction CA|IfAL{CH^cnar ) schari 

b *f F 0RO C f it > S So i % hen 

CAPITAL* *CHRCORDCCH ) »40B) 

end? 


APPENDIX II 

r' , > 

LEXICAL ANALYSIS PROGRAM 

*** m m **» m m m m m m m m m m m m <m m m m m m *» m ' 


const 


NORW * 28; 
AL * 10; 
LMAX » 132; 


* NO. OF KEYOWRDS *) 

* NO. OF SIGNIFICANT CHARS IN IDENTIFIERS *3 
!* MAX LINE LENGTH *) 


NOERRMESS* ' **** CONGRATS J YOU WIN i <NO ERRORS DETECTED'; 

EMES*' ERRORS DETECTED 

type 

SYMBOL * 

• •( NUL# IDENT, INTNUM, REALNUM , PLUS, MINUS f TIMES » SLASH # POINTER . 

LPAREN .RPAREN. LBRACKETjrRBRACKET.EQSYM ,NESYM .LTsYM, EOFSYM, 
LESIM.GTSYM.GESYM. ASSIGN, COMMA, PERIOD, SEMICOLON, COLON, 

STRING #ANDSYM.ORSYM. NOTSYM, DIVSYM.MODSYM , BEGINSYM , ENDSYM, IFSYM , 
THENSYM,ELSESYM| WHILES YM,DuSYM, REPEATS YM, UN TILS YM,CONSTSiM, 
TYP£SYM,VARSYM/ ARRAYSYM,OFSYM,RECORDSYM,PACKEDSYM,f llesym, 

funcsym,procsyh,progsym,insym,forwardsym,setsym); 

ALPHA® packed arraj CI..AL3 of char; 


SYMSETssefc Of SYM 
KWQRDAKRAY* 
SYMBQLARRAY* 


KWQRDAKRAY* array II!, NORM] of ALPHA; 
|| ## M0RW1_0|_ SYMBOL; 


,,MORW3 Of , ... 
'! of SYMBOL; 


illAR ARRAY® arr ay a f chiri 

PRINTLINE* packed array U..LMAXT of char; 


var 1 

,% t alpha; 

SV,T r 

! ?B ! > insmu. 

SSYM l CHARARRAYj 
LINE ! PRINTLINE! 
CC#LLJ LlNEPOlNTEr; 
ERAcOUNT t COUNTOFERRI 


r nnf 

ibw* 


CHAR READ #3 • 
SYMBOL READ *3 


procedure HALT; 
begin 
end; 


procedure ERRORCN* integer 3 ; 
const 

CRR*4ES» # ERROR *; 

b *S&?TEL*N 



end; 

prneedur# . nextch ; 

” W. |S5ie«?8|(SIS?Cll)*408 3 

end# .■ - . . \ • 



*««in (♦NpTCH*) 

** CC*CL thtn 
if EOF(INPUT) 

be 


then HALT 


i 


CssCOi; 
:h?*capit 
end,* 


gin LLf=Q? CC:=0 
OUTPUT" : a* V ? 

putcoutput); 
while notCEULNC input) ) 
begin Ll,*LLf i ? 
LINECLLJ » alNj^UT* ? 
OUTPUT* S slNPUT* ? 

SSHBrn” 

end? 

PUTLN (OUTPUT)? 
LlfsLL+1? 

lineTllJ f ? 

GET(INPUT) 
end? 


do 


AL (LINE C CC 3 ) 


procedure GETSYM? 
var 

T , J , K s integer? 

function LETTERsbooiean? 
begin 

It C0R0(CH)>*0RD( 'A')) and (ORDCCHX»ORD( # Z' 
LETTERS®tFtf 8 

else letter jafaise 
end? 


function DIGITfboolean? 
begin 

if (0RD(CH)>a0RD('0 
DIGIT i*true- 
•l»f- DIGIT* stales, 
end? 

procedure packwgro? 

' te *whf le*0lilf or LETTER do 
begin . 

ij Kfhfy .then 


) 3 and (ORDCCH)<aORD( # 9 


'min 

HE 
end 
end? 


•2». 


R4«K»i| ACKIlsCH 


procedure KEXHQRDORld? 
begin- . ■■ 

while K<AL do 
begin; K««K+i? aeki** # 
end? 

l:«t? J ?*MORi? 

repeat 

K. i» (i+j) div 2 ? 

If ft<«WQRD£KJ • 

\t A>«»ORD£K 




'am 

Sf SXHS 


then j**K-i? 
then l? »K+i 




YMfsWSTMCKI 


be whSxe DIGIT do WEXTCt 
end? 


)) then 


) ) then 



procedure Realnumber? 
begin NEXTCH? 

If CH*' * * then CHs»' : # 
else 

if DIGIT then 
Degin NUMBER? 

SYM? aREALNUM; 
end 
else 
begin 

SYMJsNUL? 

ERROR! 1 ) ; 

GETSYM 

end 

endl 

procedure EXPQNENTNUib? 
begin NEXTCH? 

if CCHs*+*) or CCH«'-') then NEXTCH? 
if DIGIT then 
begin NUMBER/ 

SYM ! bREALNUM? 

end 

else 

begin 

SYM**NUL| 

£RRQR(2) ? 

GETSYM 

end 

end? 

procedure iNTQRREALNum? 
begin NUMBER; 

SYMf sINTNUM? 

If CH«'B * then NEXTCH 
else 
be|in 


if 
end 
end? 


Ha* 
GH«'E 


'then REALNUMBER? 
E*> then EXPONENTNUm 


begin 


NEXICH ’ . 

begin ; 

pACKWQRD? 

* KEYWORDORId 

■■ end • 

else 

if DIGIT then INTORREALNue 

else 

if CH* f * * * then 

"’few- 

NfSXfCHj _ 
S¥Mt*STRING 
until CHO**** 
else 

If CH*'<' then 
b«|in_NEXT£H? 


do NEXTCH? 


$k 


CH» f >* then 

begin SYM:=NESYM? NEXTCH 
: end 

if CH*'*/ then 
begin SYMjeitESYM? 

v ' ! * " ■ end 

else SYMS*I|TSYM 
end 


NEXTCH 




else 

it CH='>' tnen 
begin NEXTCH? 
f f * s 0 

begin SYM*=GESYM? NEXTCH 

end 

else sym:=gtsym 
end 
else 

if CH® * j • then 
begin NEXTCH? 

If CH= * = ' then 
begin SYM?*ASSIGN? NEXTCH 
end 

else SYMJ=COLON 
end 
else 

if CH* * , * then 
begin NEXTCH? 

If rws* ' f h#>n 

begin S>YM:=COLON? NEXTCH 
end 

else SYMjsPERIOD 
end 
else 

If CH* * C ' then 
begin NEXTCH? 

If CH® * * then 
begin NEXTCH? 
repeat # . 

while CH<> * do NEXT 
NEXTCH . 
until CH* 3 ? 

5YMl*NUli? 

NEXTCH? 

GETSYM 
end 
else 

^ SYM«*LPAREN 
end 
else 


uH? 


lt £c mm*? : i 


n 

begin 


***,'/ 


;*, 


*? 


# * « 
1*3 3 


bti 


end? 

tn 


5YH**SSYM CCH3 ? NEXTCH 
ehd 
else., 
begin 

' |YM|SNUI|? 

S! 11 

GETSYM 

end? 


MHRs*aP“ : *> 


WORD 

WORD 

WORD 

WORD 



1 J *' ARRAY 
3 S* *$EGIN 
S**CONST 
S®*D1V 
8®*DO 
8**EbSE 
?* # END 

jafFQRWARD 
| «* FUNCTION* 



If 

•j 

H 

1 1 

v 

F 


WSYM 

WSYM 

WSYM. 

WSYM £ 

WSYM 

WSYM 

WSYM 

WSYM 

WSYM 

WSYM 

WSYM 

S SYM 
6YM 
WSYM 



J«ANDSYMl 
*ARRAYSYM? 
*BEGXNSYM# 
*CQNSTSYM? 
*01VSYM? 
*DOSYM; 
aEDSESYM? 
sENDSYM? 
«FILESYMf 
sFORWARDSYMi 
FUNCSYM? 

. ‘IFSYM? 
f*INf 
i*MOf 


>Iy4? 



f 


WORD 

WORD 

SOBD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

SSYM 

SSYM 

SSYM 

SSYM 

SSYM 

SSYM 

SSYM 


S 
9 
0 
21 . 
.223 
[233 
[243 
[253 
[263 
'273 
283 


ja 'HOT 
|3?OF 
I s *0R 
I ■ 'PACKED 
S3 PROCEDURE 
S » 'PROGRAM 
• * 'RECORD 
S»'REPEAT 
S s 'SET 
S a 'THEN 
S * 'TYPE 
!» 'UNTIL 
Ss'VAR 
S = 'WHILE 


' + '3 SaPliUSf 

'-'I S 3 f 


. „ 'MINUS; 
'*'3 ;=TiM£S; 
'/'] S3SLASH; 

'1 SsPOINTER; 
'*'1 S3EQSYM; 
'('3 S3LPARENJ 


■J 

! 

:: 

'\ 


:| 

U 

f 


WSYM [153 
WSYMQ6J 
WSYM [17 J 
WSYM Cl 83 
WSYM [ 19J 
WSYM [203 
WSYM [21 3 
WSYM C22 3 
WSYM £233 
WSYM [243 
WSYM [253 
WSYM 1 263 
WSYM [273 
WSYM £283 


SsOFSYM? 

SsORSYMf 

SsPACKEDSYM; 

SsPROCSYM? 

S*PROGSY M S 

S*RECORDSYMy 

S3REPEATSYM; 

SaSETSYM; 

SsTHRNSYM; 

:«typesym; 

SsUNTILSYMS 

S»VARSYM? 

SsWHILESYMJ 


SSYM [ ' ) 
SSYM l ' t 
SSYM C ' 3 
SSYM t* , 
SSYM [ ' t 
SSYM C ' # 


:=RPaREN; 

S*LBRACKET; 

S=RBRACKET; 

s*comma; 

SSSEMICODON? 

jsnesym; 


CHS3* 


9 m 
9 


CCs=0; LL:=0; 


GETSYM; 

while not eof (INPUT) do GETSYM 
end. 



♦#♦♦*♦*♦******#*#*$***** ***♦*♦**) 


(1) 

<PRQGRAM> 1 1 a <PROGRAMHEAD> <BLOCK> , 

(2) 

<PROGRAMHEAD> ::» program <IDENTIFIER> £ <FILELIST> ) ; 

C 35 

<FIL»ELIST> i :* <IDENTIFIER> { , <IDENTIFIER>> 

C4) 

<BLOCK> II* <CONSTDEFPART> <TYPEDEFPART> <VARDEFPART> <FUNORPROi 

begin <STATLIST> end 

f* CONSTANT DECLARATION AND DEFINITION *) 


( 5 ) 

<CONSTDEFPART> ija <EMPTY> 

I const <CONSTDEFLIST> 

( 6 ) 

<C0NSTDEFLI5T> l|» <CONSTDEF> ? 

' I <CONSTDEF> t <CONSTDEFLIST> 

( 1 ) 

<CONSTDEF> M* <IDENTIFIER> a <CONSTANT> 


<C^NSTANT> 


(9) 


II* <STRIN<5> 

• | <SIGNEDCONST> 


<SIGNEDCONST> 1 1 a <SIGN> <IDENTIFIER> 

<|IGN> <INTEGER OR REAL> 
<IDENTIFIER> 

<INTEGER OR REAL> 


<SIGN> M* + | * 

<INTEGER OR REAL> **s <INTNUM> 

I <REALNUM> 

C* TYPE DECLARATION AND DEFINITION *) 

m m m m m m m m m m m m mm m m m m m m ** 

<|?IeDEFPART> tim <EMPTY> 

f <TYPEDEFLIST> 



<TYPEDEFLIST> <TYPEDEFJN rilON> f 

I <TYPEDEFINITI0N> ; <TYPFDEFUST> 


<TYr£0EFINITION> \ ;s <IDE&T1FIER> s <TYPEDKF> 

Uy£edEF> ii* set <SETYPE> 

Packed <RECARR> 

* <IDENTIFIER> 

<g|COBD OR ARRAYS <REC ARR> 

<SIMPLETYPE> 

<REC0RD or ARRAY> jjs record I array 

(14) 

<SF.TYPE> : ;s Of <SIMPLETYPE> 

(15) 

<8FCARR> ;:= record <FIELDLIST> end 
i array <ARRAYTYPE> 

( 16 ) 

<FTELDt»iSY> <FIELDIDH5T> : <IDEMTIFTER> . 

I <FIELDIDLISY< 5 <IDENTIFIER> t <FXELDLT5T> 

(17) 

<FIELDIULIST> its <IDENTIFIER> 

l <IDEMTIFIER> , <FIELD1DLIST> 

(18) . 

<ARRAYTYPE> ii* £ <SIMPLETYPE> i , <SIMPLETYPE> > ) Of <TYPEDEF 

(19) 

<SIMPLETYPE> IIS £ <IDENTLIST> ) 

j <STRRING> <STRING> 

I <SIGNEDCONST> <SIGNEDCONST> 

( 20 ) 

<IDENTLIST> ti* <IDENTIFIER> 

I <IDENTIFIER> , <IDENTLIST> 

C* VARIABLE DECLARATION *) 


<2U . 

<VARDEFPART> II* <EHPTY> 

I var <vardeclist> 

( 22 ) 

<VARDECLI3T> II* <VARDECLARAfION> 1 

I <VARDECLARATIQN> * <VARDECLIST> 

(23) 

<VARDECLARATIQN> tt* <I0ENTIFIER> • < CTYPE IDENTIFIERS 

I <IDENTIFIER> , <VARDECLARATION> 


(* FUNCTION AND PROCEDURE DECLARATIONS *) 


(24) 

<FUN0RPR0CDECL> Si* <EMPTY> 


SSSBffiBEB I.8S ! IHSISfi 

function «FUNCREADER> f forward | <FUH0R|R( 
function <FUNCHEADER> J <Bl»QCK> t <FUN0RpR< 


X'i S) ” 

<FUNCHEADER> 8 8* <IDENTIFIER> <FUislCF^Kf J ST> j <TYPf5 IOE*JTTFTER> 

(26) 

<FONCPARDST> 88* <EMPTY> 

I ( <FUNCPAPAMETERS> ) 

(27) 

<FUNCPARAMETERS> 8 8* <FPARAIDLST> S CTYPE IDENTIFIER* 

( ; <FUMCPARAMETERS> ) 

I procedure IDENTIFIER* <PRQCPARLST> 

{ } <FUNCPARAMEXERS> i 

i function <ir>EMTIFIER> <FUNCPARLST> : <IDEN' 
{ } <FUWCPARAMETERS> ) 

(25) 

<FPARAI0L3T> j := <IDENTIFIER> i , IDENTIFIER* > 

(29) 

<PRQCHEADER> 8 8 = <OIENTlFIER> <PROCPARLST> 

(30) 

<PROCPARLST> s S s <EMPTY> 

I ( <PROCPARAMETERS> )* 


(31) 

<PRQCPARAMETERS> !!= <PPARAIDLST> S <TYPE IDENTIFIER* 

. { 8 <PROCPARAMEIERS> > 

I var <PPARAIDLST> 8 CTYPE IDENTIFIER* 

( f CPRQCPARAMEIERS* > 

J procedure CIDENTIFIBR* <PR0CPARLST> 

, { | CPRQCPARAMETERS* } 

I function <IDEMTTFIER> CFUNCPARLST* 8 

<TYPE IDENTIFIER* i ? CPRQCPARAMETERS* 

CpPARAlDLST* It* CIDENTIFIER* ( , CIDENTIFIER* * 


C* EXPRESSIONS, TERM AND FACTOR *) 

m *m m m m m m m m *i m m m m mm m m m m mmmmmm m m mm m m m m m mm m m 

<£x£rE8SI0N* 88* C8IMEXP* 

l <SIMEXP> CRELOPS* <SIMEXP> 

CRELOPS* 1 8* * I i | < | > I <* I >* j in 
(34) 

<SIMEXP> 8.1* CSIGN* CTERMS* 

I CTERMS* 

MS* 81* <TERM> 

f CTERM* <SET0PS> <TERMS> 

<SET0PS> 18 * + I - I or 

<IIrM> II a. CFACfOR* : 

1 | cFACTOR* CMULOPS* CTERM* 

CMULOPS* 8 l* * I / f div I rood i and 



<FACTOR> IS* <IDEWTIFIER> <FtlNr>RVAR> 

* not <FACTO*> 

( <EXPRESSIOn> ) 
l <EXPLIST> ] 

CCONSTANT SYMS> 

CCONSTANT SYMS> IS* <INTNUM> | <REALNUM> | <STRING> 

( 38 ) 

<FUN0RVAR> l!= <selector> 

I <SEliECTOR> C <EXPUST> ) 

<SELECTQR> ::s <EMPTY> 

t <EXPLIST> 3 <SELECTOR> 

. <FIELD IDENTIFIED <SELECTOR> 

* <SELECTOR> 

( 40 ) 

<EXPMST> ! J= <EXPRESSION> 

I <EXPRESSIQN> , <EXPLTST> 

v 

(♦ statements *) 


( 41 ) 

<STATEMENT> II* begin <STATLTST> end 
• If <IFSTAT> 

while <WHILESTAT> 
repeat <REP£ATSTAT> 

<IDENTIFIER> <OTHERSTAT> 

( 42 ) 

<STAmST> It* <STATEMENT> 

f <STATEMENT> } <STATfcIST> ' 

( 43 ) 

<IFSTAT> Its <EXPRESSION> then <STATEMENT> 

I <EXPRESSION> then <STATEMENT> else <STATE«ENT> 

( 44 ) 

<WHILESTAT> It* <EXPRESSION> do <STATEMENT> 

( 45 ) 

<REPEATSTAT> SI* «STATUST» until <EXPRESSION> 

( 46 ) : ' 

<OTHERSTAT> II* <SELECXOR> I* <EXPRESSION> 

‘ <sIiECI0R> ( <EXPLIST> } 

<SELECT0R> 


APPENDIX IV 


SYNTAX ANALYSER PROGRAM 


const 


NORW a 2 8; 
AL * 1GI 
LMAX * 132 ; 


C* NO, OF KEYOWRDS *) 

'* NO. OF SIGNIFICANT CHARS IN IDENTIFIERS *) 
* MAX LINE LENGTH *) 


NOERRMESS* ' **** CONGRATS i YOU WIN UNO ERRORS DETECTED'; 

EMESs" ERRORS DETECTED '? 

type 

C REN JS^iREN^ L6RAckET^BRAC^ET!E04YM < JI|§f ISPifM * 

LESYM.GTSYM.GESYM. ASSIGN, COMMA, PERIOD, SEMICOLON. COLON. 
STRING, AMDS YM .ORSIM, NQTSIM..D I VSYM,MODSYM,BEGINSYM,ENOS¥M,IFS 
THENSYM,ELSESYM,WHILESYM.d6sYM,REPEATSYM,UNTILSYM.CON5TSYM, 
TYPESYM , VARSYM, ARRAYSYM , OFSYM , FILESYM t RECORDS YM t PACKEDSYM , 

FUNCSYM ,PR0C'"' / * 1 “ f 

ALPHA » packed ai 
SYMSETaset Of SYMBOl 
KWOR0ARRAY* array C‘ 

SYMBOLARRAy* array 
IHARARRAY* array 


FUNCSYM, PROCSYM,PROGSYM,INSYM,FORMARDSYM,SETSYM); 

Cl« ,AL1 of char; 

; 

i * 1 


va 


£Wi^r5 a 8^HliiF ay 

COUNTOFERR#l,,lOO; 

A t ALPHA; 

lsov!&u«, i: 

WSYM J SYMBOLARRAy; 

SSYM i CHARARRAY; 


NORW] of ALPHA; 
•N0RW1 of. SYMBOL; 

1 tf.Wo* «*„ 


AST CHAR READ *) 
AST SYMBOL READ *) 



procedur 

begin 

end; 


e HALT; 


procedure ERROFKNt integer); extern; 

procedure GCTSYM; extern; 

function TESTSYMC LEX I SYMBOL) s boo lean; 


Ction TE 5 TSXMUilSA;gI«oyu 
begin testsym j* lex*sym 
end; 

is 

end; 


function J 
begin T 


TSYMINSetCLEXSETlSYMSET): boolean; 
TSYMINSet I a 5YM in LEXSET 



procedure CHECKSYM(C5YM? SYMBOL ? err j integer ) ? 
mgtn 

If TESTSYM(CSYM) then GETSYM 
else ERROR(ERR) 
end? 

procedure SIONEDCONSt ? 
begin 


,% ( (TESTSYM(PLUS) ) Or (TESTSYMCM1NUS ) ) ) then GETSYM? 
if TESTSYM ( I DENT ) then GETSYM 
else 

if ( (TESTSYM(INTNUM)) or ( TESTS YMC RE ALNUM) ) ) then GETSYM 
else ERRORU4) 

end? 

procedure constant? 
begin 

if TESTSYM( STRING) then GETSYM 
else SIGNEDCONSt 
end? 

procedure COnSTDef? 
begin 

If TESTSYMUDENT) then 
begin GETSYM? 

CHECK SYM (EQSYM# 4) ? 

CONSTANT 

end 

end? 

procedure_QONSTDEFLIst? 

? 


begin CONSTDEF? 

CHECKSYM (SEMICOLON #53 


It TESTSYMUDENT) then CONSTDEFLISt 
end? 


procedure IDENTLIST? 
begin 

if TESTSYMUDEN 
mile 
begin 


__ TESTSYMUDENT) then 
while TESTSYM (COMMA) do 

end 
end? 


(* TYPE DECLARATIONS *) 
GETSYM? 


procedure SIMPLETYPE? 

be ffTESTSYM (STRING) then 

b *?HEcilYM (C J lON f 6) ? CHECKSYM( STRING ,15) 
end 

Al f e 

if^TESTSYM^PAREN) then 

I hIcKS^M?&P AREN , 8 ) 
end 
else 

then 

begin GETSYM? SIGNEDCONSt 

. jm 

end , ' ■ v:*. - • . 

end? 


procedure TYPEDEF? 
forward? 



procedure ARRAYTYPE; 
to#® in 

II TESTSYM(LBRACKET) then 
begin getsym; 

SIMPLETYPE? 

while TESTSYM (COMMA) do 
begin SIMPLETYPE 
end; 

CHECKSYM(RBRACKET,8) ; 
CHECKSYM(OFSYM,ll); 

TYPEDEF 

end 

end? 

procedure FIeldidlst; 
begin 

1 L? ES I§^U D IP^ then GETSYM; 
-While TESTSYM (COMMA) do 
begin GETSYM? 

IDENTUST 

end 

end; 


procedure FIELDLIST; 
begin FIELDIDLST; 
CHECKSYM (COLON , 


checksymcioent 



ti§i 


6n) 


end 

end; 


then 


procedure RECARR; 
begin 

if TESTSYM (RECQRDSYM) then 
begin GETSYM; 


end 

else 


®MnOSYH., 3) 




end 

end; 


procedure SETYPE; „ ^ 4 k 

begin CHECKSYMCQFSYM, li); 

SIMPLETYPE 

end; 


procedure TYPEDEF ; 

b *f| n TESTSYM(SETSYMl tfttn 
begin GETSYM; SETYPE 
end 

& 1 e o , 

if TESTSYM CPACKEDSYM) tD«f! 

begin GETSYM? 

end 

if TESTSYM? 
begin GET i 


procedure TYPDEFiNiTion? 

e ff n TESTSYM(IDENT) tnen 
begin GETSYM? 

CHECKSYMCE0SYM,4); 

TYPEDEF 

end 

end? 

procedure TYPFDEFList ? 
begin TYPDEFTNITion; 

CHECKSY-H (SEMICOLON, 5)? 
if TESTSYrt(IDENT) then TYPEDEFLISt 
end? 


procedure VABDECL? 
beqin 
repeat 

IDENTLIST? 


C* VARIABLE DECLARATIONS 


* 5 


C H EC KSYM (COLON , 6) ? 

CHECKSYMiIDENT# 12; ? 

CHECKSYM (SEMICOLON, 5) 

until (not TESTSYM(IDENT)) and not TESTSYMINSet CTYPDECL) 


end? 

procedure PROCPARLST ? 
forward? 

procedure FUNCPARLST ? 
forward? 

procedure PPARAIDLST ? 
begin 

If TESTSYMC IDENT) then 
be whtle E TESTlYM(COMMA) do 


(* FUNCTION & PROCEDURE DECL*) 


end 

end? 


begin GETSYM? 

CHECKSYM C IDEUT ? 
end 


12 )? 


procedure PROCPARAMEters ? 


begin 

If 


_ (TESTSYMINSet ( t IDENT , VARSYM , PROCSYM , FUNCSYM 3 ) ) tftbh 
begin 

If TESTSYJ 
begin GE’ 


VARSYM) then 
YM? 


A ?Kl?Mf?A|.ON,63? 

;KSYMCIDENT,12} 

end 

if TESTSYMC PROCSYM) then 

end 

® lfi if TESTSYMC FUNCSYM) then 
be ?HECKlYMaAENT r 1 2 ) ? 

*H8SI§§ifcAkQN * f) i 

iHiCKSYMv IDENT f i2) 

end 



begin PPARA 
CHECKSYM 
CHECKSYM 
end 


DLSTf 
_0L0N,6)| 
IDENT, 12) 


end? 

while TEST SYM (SEMICOLON) do 
begin GETSYM? 
PROCPARAMEterS 


end 

end? 


procedure PROCPARLST? 
begin 

if TESTSYw ( LPAREN ) 
begin GETSYM? 
PROCPARAMEters? 

checksymcrparen 

end 

end? 


then 

,8) 


procedure PROCHEADER ? 

begin CHECKSYM (I DENT/ 12) ? 

procparlst 

end? 

procedure FPARAIDLST ? 
begin 

if TESTSYMC IDENT) then 
begin GETSYM? 

While TESTSYM(COMMA) do 
begin GETSYM? 

CHECKSYM (I DENT/ 12) 
end 

end 

end? 


procedure FUNCPARAMEters ? 

bftoln 

if CTESTSYMINSetCUDENT/PROCSYM/FUNCSYM] )) then 
begin 

If TESTSYM(PROCSYM) then 

b# ?HEcKlYMllSENT,i2)? 

PROCPARLST 

end 

else 

it TESTSYMCFUNCSYM) then 
begin GETSYM? 

iECKSYH ( IDENT / 1 2 ) ?. 


TO &?!SlON.6>, 

DENT, 12) 


CHECKS* - 
CHECKSYM 
end 
else 

begin fpara 

CHECKSYMC 


OLON 1 , 


end 


HECKSYMCIDENT 


m 


end? 

while T 1 STSYM(SEMICOLOIO do 

begin GETSYM: 
FUNCPARAMEters 



proeedur 

begin 

It 


re FUNCPARLST? 

_ TESTSYM(LPAREN) then 
begin GETSYM* 

FUNCPRRAMEters? 

CHECKSYMCRPAREN,S) 

end 

end? 

procedure F'JNCHEADER ? 

begin CHECRSYMCIDENT, 12)? 

FUNCPAPLSTJ 

CHECKSYMCC0ti0N,6)l 

CHECKSYMQD£tfT,i2) 

end; 

procedure BLOCK? 
forward? 

procedure FUNORPROCDecl ? 

be9 f n (TESTS5fMXNSet( [PROCSYM ,FU«CSYM] ) ) then 

be ?fTESTSYM(PROCSYM) then 
begin GETSYM? PROCHEADER 
end 
else 

begin GETSYM? 

FUWCHEADER 

'.f E fEtTSYMfFORWARD^YM5 then GETSYM 


cJ|5kSYM?S&MICQLQN , 5 ) 
FUNORPROCDecl 


? 


end 
end? 

procedure EXPRESSION? 
forward? 

procedure EXPLIST? 

b lr?IlfI?S(cOHMA) then 

begin GETSYM? 

EXPLIST 

end 

end? 

procedure SELECTOR? 

b *ff TESTSYMINSet(SELECTSYS) then 

b *?| n TESTSYMCLBRACKET) then 
bf gin GETSYM J 

che^ksy6(rbracket ,10) 
end 


TESTSYMC PERIOD) then 
'n GETS) 

ECKSYMI 




end 

® l8 { | TESTS YM CPOINTER ) then GETSYM? 
SELECTOR 
eftd 
tndf 



procedure funorvar? 

begin SELECTOR* 

If TESTSYM(LPAREN) then 
begin GETSYM? 

EXPLXST? 

CHECKS YM (RP AREN, 8 ) 
end • 
end? 


procedure FACTOR? 
begin 

if TESTS YMCIDENT) then 
begin GETSYM? FUNORVAR 
end 
0 1st 

It ( TESTS YM I NSet ( t INTNUM, REAL NUM » STRING] ) ) then GETSYM 

8 i S 6 

if TESTS YM ( NOTSYM) then 
begin GETSYM? FACTOR 
end 

elS if TESTSYMCLPAREN) then 
. begin GETSYW? 

EXPRESSION? 

CHECKSYM( RPAREN,8) 
end 
else 

1 if TESTSYM(LBRACKET) then 

begin 
GETSYM? 

I ,f not CTESTSYMCRBRACKET) ) then 
EXPLISTl 


end? 


EXPLI5T? 

CHECKSYMCRBRACKET, 10) 
md 


procedure TERM? 

bi ff(TEiTSYMINSetC CTIMES, SLASH, DIVSYM ,M0DSYM , ANDSYM] } ) theft 
begin GETSYM? TERM 
end 

end? 

procedure TERMS? 

bC f f (TESTSYMINSett [PLUS, MINUS, 0RSYM3 ) ) theft 
begin GETSYM? 

TERMS 

end 

end? 


procedure SIMEXP ? 

be ft (TESTSYMINSetC tPL»S,MINUSn) 


TERMS 

end? 


then GETSYM? 


procedure EXPRESSION I ' 

(T EST SYMINSet C RELOPSYMS J) then 
begin GETSYM? 

SIMEXP 


end 

end? 


i 



procedure statement; 
forward; 

procedure STATLCST; 
begin 

STATEMENT; 

if TF.STSYmC SEMICOLON) then 
begin GETSYM; 

STATuTST 

end 

end; 

procedure JtESTAT; 
begin expression ; 

CHECKSYM(THENSYM,16); 

STATEMENT; - 

if TESTSYm (ELSESYM) then 
begin GETSYM; STATEMENT 
end 
end; 


procedure whilestat; 
begin EXPRESSION; 
CHECKSYM (DOSYM , 17 ) ; 
STATEMENT 
end; 


procedure REPEATSTAT; 
begin STATLIST; 

CHECKSYM(UNTILSYM,i8); 

EXPRESSION 

end; 


procedure otherstat; 

begin SELECTOR; 

begf n^GETiyM; ^E xIrIssION 
end 
else 

if TESTSYM CLP AREN) then 

beam getsymi 

EXPLIST; 

CHECKSYM CRP AREN, 8) 
end 

end; 

procedure statement; 
begin 

if 

btyi.U , 

CHECKSYM (ENDSYM , 13 ) 

end 
else 

f TESTSYMC IFSYH ) then 
begin GETSYM? IFSTAT 


then 


en 

•“it 


_ TESTSYM CHHIkESYMl then 
begin GETSTlf WHILESTAT 


m 

else 


if TESTSYM CREPE A|f|M) Jfchtft 
begin GETSYM? REPEATSTAT 
end 
else 



If TESTSYM(IDENT) then 
begin GETSYM; OTHERSTAT 
©na 


ends 


procedure BLOCK; 
begin 

It I'ESTRYM (CONSTSYM) then 
begin GETSYM; CQhSTDEFLIst 
end; 

it TESTSYm (TYPESYM) then 
begin GETSYM; TYPEDEFLISt 
end; 

it TESTSYMUARSYM) then 
begin GETSYM; VARDECL 

end; 

1£ F"^r}RPROCDeci* tUNCSKMJ ^ then 

CHECKS YMCdEGI^SYM, 19) ; 
statust; 

CHECKSYMCENQSYM,i3) 

end; 

procedure FILEbIST; 
begin 

it TESTSYH(IDENT) then ' 

begin GETSYM; 

while TESTSYM(COMMA) do 
begin GETSYM; 

CHECKSYM ( I 6 ENT, 12 ) 
end 

end 

end; 


procedure PRQGRAMHEAd; 
begin 

f TESTSYM(PROGSYM) then 
begin GETSYM; 

if TESTSYM(IDENT) then 
begin GETSYM 


f 


’It TESfSYMtLPAREH) then 


begin 1 GETSYM; 

FILELIST; 
if TESTS YMCRP AREN) then 
begin GETSYM; 

CHECKSYM (SEMICOLON ,5) 
end 

else ERRORC8) 
end 

else ERRORC7) 
end 

else ERR0RC12) 
tnd 

else ERR0RC20) 
end; 


begin 


?* ’initialization or TABLES used for lexical ANALYSIS *5 

FACBEGSYM twCLPAREN/NOTSYM.INTNUM.REALNUM# IDENT .STRING, L8RACKI5T3 } 
SIMPTYBEGSym : s fSTRl NG.LPA^EN^PLy^MINUS , I DENT , INTNUM, REALNUMj ; 
SELECTS 


IIlopsyms 



STRING , IDENT, LP AREN , POINT! 

2 f R«rr nnns vfi 1 ' A^RA YMYM i sItBYM 1 * . . ' ‘ ! 

" * cf EQS?M%I:SYM # Lf SY& .LESYM , Sf SYW , GESYM # IN8YMJ > 



GETSYM? 

PROGRAMHEAd? 

BLOCK? 

if not TESTSYM(PERIOD) then ERR0RC21)? 
if ERRCOUNTOO then 
beoin 

WRITELM; »;Rirt.LN> 
write (output, ERRCOUNT)? 
write (output. EMES): 
write (tty ,£RhCUUNT) ? 

WRTTE (TTY,EME$) 

end 

else 

becrin WRITELN (OUTPUT.NOERRMESS ) ; 
WRIXELM (TTY , MOE'RRMESS) 

end 



APPENDIX V 


SYNTAX ANALYSER WITH CONTEXT-FREE ERROR RECOVERY 


*) 


const 


NOERRMESSs 
E 


Ss ' **♦* CONGRATS i YOU WIN UNO ERRORS DETECTED ' ? 

errors detected 


EMES= 
type 

SYMBOL s 

(NUL, l DENT, INTNUM.REALNUM, PLUS, MINUS, TIMES, SLASH, POINTER, 
LPAREN , RPAREN , LBRACKET , RBRACKET , FQS YM , NESYM , LTSYM, EOFSYM , 
LESIM,GTSYM,GESYM / ASSIGN, COMMA, PERIOD, SEMICOLON. COLON, 

STRI NG, ANDSyM .ORS iM , NOTSYM ,D I VS YM, MODS YM, BEGINS* M, ENDSYM, IFi 
T4 ENSYM ,ELSESYM, WHIuESYM,DOSYM,REPEATSYM, UNTILSYM, CONSTSYM, 

T ifPESYM , VARSYM, ARRAYSYM ,OFSYM , FILESYM , RECORDSYM . PACKEDSYM, 
FUNC SYM , PROCSYM , PROGSYM , INSYM , FOR WARDSYM , SETSYM ) ? 


SYMSETaset Of SYMBOL? 

(* LAST SYMBOL READ *> 


var 

SYM X SYMBOL? 

ERRCOUNT: Integer? 

«9»ZSE?SS8ASi3S«?5SSiBfi8SkK?SiSt5fIi?fiS£Sfo$!Qt? P8 BSte*f 

procedure ERK0R(N: integer) ; extern? 

function TESTSYM(TSYM:SYMBOL)t boolean? extern? 
function TESTSYMiNSETISYMBOLSETxSYMSET) : boolean? extern? 

procedure GETSYM? extern? 

procedure TEST (st,S2iSYMSET?Nj integer)? 

bC |f n not TESTSYMlNSet(Si) then „ 

b 8 2 hile R not C TE:iTiYMiisetCSl? Jo GETSYM 
end 
end? 

procedure C HECKS YM (CSYMs SYMBOL? errs integer ) ? 

be ?f n TESTSYM£CSYM) then GETSYM 
else ERROR(gRR) 
end? 

procedure SIGNEDCONSt (FSYSxSYMSET) ? 

bC f 1° ( £ TESTSYM(PLUS) ) or (TESTSYM(MXHUS) ) } 

i? e TEsfsYM£lDERT) then GETSYM 
else 


end? 


( C|ESTSYM( INTNUM) ) or £fE8T#M<8fftLM-y*l-5') > 

then IlfilPS, -.*■»« «*,v " > *’ " ' 

else testJ £3 ,fsys, 14) ■■ • ! ., v . :■ . t 


procedure Constant (Fsysxsymset)? 

bt ?EST C CON STBEGSYbs , FS YS , i 4 \ ? 
il te§tsym(strin 6) then G&tsym 

else SlGNEDCONStCFSYS) 

end? 



procedure cqnstoefcfsysssym&et)? 
begin TfiSXC UOfiNTJ .FSYS, t2) ; 

If TEi»rsVMCH)KMi’5 then 

begin GETSYM? 

CHECKSYM(EQSYM,4)? 

Cn^STANT(FSYS+ (SEMICOLON, TDENT] ) 
end 
end; 

procedure CONSIOEFLlst (FSYSsSYMSET) ? 
begin C!(jWSTl)EF(FSYS+ [SEMICOLON] )? 

CHECKS Ym( SEMICOLON, 5)? 

If then CONSTDEFLTst(FSYS); 

Tb.S l v r Si 5 , [ J , 1 04 ) 
end; 

procedure 1 DEW XI. l Si (FSYSi SYMSET) ? 
beqin 

TESmiDe.vTJ.FSYS, 12); 
if TE5TSYM(l6fiRTJ‘ tnen GETSYM; 

While teSTS YM (COMMA ) do 
oeqin GETSYM; 

XDEMTLIST(FSYS+ [COMMA] ) 
end 
end; 

procedure SImPLETYPE(FSY5:SYMSET); 
begin 
TEST (SI 
ES~ 
begin 


(* TYPE DECLARATIONS 


^-MPTYSEGSym, FSYS. 101); 

it TESTSYMTNSett SIMPTY&EGSYtn) then 


It TESTSYM (STRING) then 
begin GETSYM; 

CHECKSYM(COLON,6); CHECKSYM (STRING, 15) 
end 
else 

it TESTSYM (LPAREN) then 
begin GETSYM; 

end 

else 

begin SIGNEDCONStCFSYS+CCOLONJ ) ; 
if TESTSYM(COLON) then 
begin GETSYM? SIGNEDCONSt(FSYS) 
end 

end 

end 

end; 


procedure TYPEDEFCFSYSISYMSET) ? 
forward? 


iYMSET 
'’SYS, 9 
then 


procedure ARRAYTYPECFSYSSi 

begin GETSYM? 

§IMPLBTYPE(FSYS+ (COMMA, RBRACKETJ.) ? 

W beg!n T IfMpLEmE(rlYS?EC0MHA,RBRACICET3> 

end? 

IHBSKSYMCRBRACKET* 

JHECKSYMCOFSYM, i 1 5 ? 

TYPEOEF(FSYS) 
end 
end? 



procedure FTELDIDLSTCFSYSSSYMSET) ? 
begin 

te^TC UuF.,MTJ i FSYS,12); 

If fESTsYHCXDENT) then GETSYM? 

while TESTS YM (CUMMA) do 
oeuln GETS YM; 

lDEMTLlSf(FSYS+tCQMMA] ) 
end 
end? 

procedure FTEGDUSTCFSYS: SYMSET) ? 
begin fieloioustcfsys+ccolon] h 

CHECKSYM ( COGON , b) ? 

CHECKSYMC lOgNT, 12) f 

if IESTSYmC SEMICOLON) then 
begin GETSYM? 

FIEIjhGXSr (FSYS) 
end 

else TESTtFSYS, U,102) 
end; 


procedure RECARRCFSYSsSYMSET) ? 
begin 

if TESTSYMCRECORDSYM) then 
begin GETSYM; 

FIEGOHSTCFSYS+ CENOSYMJ ) ? 
CHECKSYMCEND5YM, 13) 
end 
else, 

begin GETSYM; 

ARRAYTYPE(FSYS) 

end 

end? 


procedure SETYPE(FSYSJSYMSET) ? 
begin CHECKSYM£QFSYM,il) ? 

S1MPLETYPECFSYS) 

end? 


procedure TYPEDEF? 
begin 

TEST (XYPEBEGSYM, FSYS» 103) ; 
if TESTSYMlNSet t TYPEBEGSYM) then 
begin 

if TESTSYM(SETSYM) then 
begin GETSYM? SETYPE(FSYS) 
end 
© Is® 

if TESTSYM(PACKEDSYM) then 
begin GETSYM? RECARR(FSYS) 
end 
else 


t CTESTSYMINSetUgECORDSr* ) ) 

then RECARRCFSYSi , 
ise SIMPLETYPE(FSYS) ? 


en_ 

else 


end 

end? 


TEST CFSYstt!! 1043 



procedure rYPOEFI MITiond'SYS* SXMSEf ) ? 
begin TESTC tIOEMT] t FS¥S, 12) ? 
it j/FSTsymqoenT) then 

begin GETSYM? 

CHECKSYMIEUSYM.4); 

TYPEDEF ( FSYS+ [SEMICOLON , IDENTl ) 
end 
end? 

procedure T YPEDEFLISt (FSYS: SYMSET) ? 

oeain TY PDF.Fttf ITionCFSYS* [SEMICOLON] ) ? 
CHECKS YM( SEMICOLON .5)? 

it TESTSYM(IDENT) then TYPEDEFLISt (FSYS) ? 
TEST CF SYS, U ,105) 
end; 

procedure vrhDECLARATION[FSYS*SYMSET) ? 
beain TESTC [IDENTl ,FSYS, 12) ? 
it testsYmCIDENT) then 

Degin GETSYM? 

if TESTSYM (COLON ) then 
begin GETSYM? 

C HECKSYMC luENT, 12) 
end 
^ X S fs 

beqin CHECKSYM(COMMA,22)? 

V ARDECLARATI0NCFSY3) 
end 

end 

end? 

? 



jHe.vJNoXi'Uoe.nivuviuw f 

If TESTSYMCIDENT) then 
VAHDECLIST(FSYS) 

end? 

procedure PRUCPARLST (FSYSlSYMSET)? 
forward? 

procedure FUNCPARL5T (FSYSt SYMSET) ? 
forward? 

procedure PPARAIDLST (FSYSlSYMSET)? 

be while E TpT|YM(COMMA) do 

be ?HECKlYMCliENT,12) 

end 

TEST U’SYS, (3 ,106) 
end? 


{* FUNCTION & PROCEDURE DECfc< 




oeqin 

then 

C.IecKSYH t COlOlSf 6 i?° L0 " 1 1DEBT 1 > ' 

:HECKsrNaoENi;i 25 
end 
else 

1 L!?5 T ^^PR0CSYM) then 

23? 



end 
else 

l S«piPS® csw tnen 

Fu|?p|pST?rsi^+ [M lON , 1 DENX 1 ) ? 

c ci c cli«fig|S?;!i 5 

end 

^ s ligclI^BI:gS^^ s+CC0LO ^ XDCfiT1>? 

CHECKSYMC IDENT, l! 
end 

end? 

while TESTSYMtSEMlCQUON) do 

ta. sm. rm 4 t* B* V IS V U • 


end 

end? 


oegin GETSYM? 

PR0CPARAMEters(FSY5) 


procedure 


be|in 


TES???L? aIILsemicoiiOni ,fsys, 

ESTSYM(UPAREN) thin 


£ TESTSYN 
oepIn # |SYH 


108)? 


che2k 


end? 

TESTCFSYS, (1,1083 
end? 


?s?«r +(RMRE,<in 


15 


end) 


ire PRQCHEADER 
in checksyh^|de 





procedure TPARAIDLST ( FSXS • SYMSET ) f 

“gihf ttHtauamM ■■■«. 

end 


end? 


TESY f FSYS, Cl ,109) 



procedure FUNCPARAMEters CfsyssSYMset) ; 

vrc'pf fTnrn,f oon/’cvfej niwpeviui zn 


begin TESTC tlDEhT,PROCSYM,FUNCS¥M) ,FS¥S,110); 

if (TESTS fMINSet ( [IDENT ,PROCS¥M ,FUNCSY M J ) ) then 
begin 

If TESTSYM(PROCSYM) then 
begin GETSYM? 

CHECKSYM C10ENT, 12)? 

PrOCPARLSTCFSYS) 
end 

e ' if TESTSYM(FUNCSYM) then 
begin GETSYM? 

CHECKSYM(IDENT,12); 
f UNCPARLST (FSYS+ {.COLON # I DENT] ) ? 
CHECKSYM ( COLON , 6 ) ? 

C HECKS YM( I DENT, 12) 
end 
0 1, s q 

begin FPARAIDLST ( F5YS+ (COLON , I DENT J ) ? 
CHECKSYM (COLON, 6) f 
CHECKSYM? IDENT, 12) 
end 

While TESTS YM( SEMICOLON) do 
begin GETSYM? 

PUNCPARAMEters(FSYS) - 
end 
end; 


procedure FHNCPARLST? 

begin TESTC tLPAREN, COLON) ,FSYS,1U)/ 
if TESTSYM CLP AREN ) then 
begin GETSYM ? 

FUNCPARAMEters (FSYS+ [RPAREN) ) ? 
CHECKSYMCRPAREN,8) 
end, 

TESTCFSYS, CJ ,112) 
end? 


procedure FUnCHEADER CFSYS: SYMSET) ; 
begin CHECKSYmCIDENT, 12) 7 

FUNCPARLSTCFSYS+ [COLON , IDENT] ) f 
CHECKSYMCCOLON ,6)? 

CHECKSYMCIDENT, 12)? 

TESTCFSYS, H ,113) 
end? 

procedure BLOCKCFSYStSYMSET) ? 
forward? 

procedure FONQRPROCDecl (FSYSsSYMSET) ? 
begin 

TESTCFSYS. E] ,114)7 

if CTESTSYMINSetC CPROCSYM, FUNCSYM) )) then 
begin 

If TESTSYMCPROCSYM) then 
begin GETSYM? PROCHEADERCFSYS+ [SEMICOLON 1 ) 
end 
else 

^UNChIIEeiU FSYS+ [SEMICOLON) ) 
end? 

CHECK5YM(SEMICQLQN,3)I 

FUNORPROCDeclf FSYS+I f&NCSYM ,PROCSYM) ) 
end 
end? 



procedure BXPRESSION(FSYSxsymset) ; 
forward? 

procedure EXPLISTCFSYSsSYMSET) ? 
begin 

EXPRESSION CFSYS+ [COMMA] )? 
if TESTSYmCCOmMA) then 
begin GETSYM; 

EXPLIST(FSYS) 

end? 

TKSTCFSYS, U ,115) 
end? 

procedure SELECTOR (FSYS S SYMSET) ? 

be ?f n rESrsYMl.MSet(SEL£CTSYS) then 

0e ?f n TESTSYM(LBRACKET) then 
begin GETSYM? 

EXPLISTCFSYS+CRBRACKET))? 
CHECKSYMCRBRACKET, 10) 
end 

e it TESTSYMC PERIOD) then 
begin GETSYM? 

CHECKSYMC IDENT, 12) 
end 
else 

if TESTSYMC POINTER) then GETSYM? 
SELECTOR (FSYS) 
end 
end? 


procedure FUNORVAR(FSYS:SYMSET) ? 
begin SELECTORCFSYS+ CLPAREN) ) ? 
if TESTSYMC LPAREN) then 
begin GETSYM? 

EXPLISTCFSYS+ CRPAREN] )? 

CHECKSYMCRPAREN,8) 

end 

end? 

procedure factqrcfsysjsymset) ? 
begin 

TEST CFACBEGSYM, FSYS, 107) ? 
if TESTSYMINSet CFACBEGSYM) then 
begin 

f TESTSYMC IDENT) then 
begin GETSYM? FUNORVARCFSYS) 
end 
else 

if C TESTS Y Ml NSet C C I NTNUM, REALNUM , STRING) ) ) 
then GETSYM 
else 

if TESTSYMC NOTSYM) then 
begin GETSYM? FACTORCFSYS) 
end 
else 

if TESTS YMCLPAREN) then 
begin GETSYM? 

lisieiifs? N ^ii5!sr RENI) ’ 

end 
else 



if TESTSYM ( LBRACKET) then 
be §ET SYM? 

if not (TESTSYM(RBRACKET)) 
EXPLISTCF5YS+CRRRACKET] ] 
CHECKSYM C RBRACKET ,10) 
end 


end? 

TEST CPSYS, [) ,108) 
end? 


procedure TERM (FSYS? SYMSET) ; 

beqin FACT0RCF5YS+MULQPSYMS) | 

if (TESTSYM IMSet (MULOPSYMS) ) then 
Begin GETSYM? TERM(FSYS) 
end 
end? 

procedure TERMSCFSYS! SYMSET) ? 

begin TERM(FSYS+CPLUS , MINUS ,ORSYM] ) ? 

If (TESTSYMINSetC [PLUS, MINUS, ORSYM3)) 
begin GETSYM? 

TERMSCPSYS) 

end 

end? 


then 


procedure SIMEXP(FSYSSSYMSET) ? 
begin 

|£ CJESTSYdlNSetC [PLUS, MINUS))) then GETSYM? 
T&RINf 5 l F S YS ) 
end? 


procedure EXPRESSION? 

begin S1MEXPCFSYS+REL0PSYM5) ? 
if (TESTSYMiNSetC RELOPSYMS 
begin GETSYM? 

SIMEXP(FSYS) 

end 

end? 


) ) then 


procedure STATEMeNT(FSYS: SYMSET)? 
forward? 


procedure STATLISTCFSYSsSYMSET) ? 
begin 

STATEMENTCFSYS+ [SEMICOLON] ) ? 
It TESTSYM (SEMICOLON ) then 
begin GETSYM? 

STATLISTCFSYS) 

end? 

TEST CFSYS, U ,600) 
end? 


procedure I FST AT ( FSYS : SYMSET) ? 

begin EXPRESSION(FSYS+ tTHENSYM] ) ? 
CHECKSYMCTHENSYM , 16) ? 
STATEMENTCFSYS+ [ELSESYMJ ) ? 

If TESTSYM CELSESYM) then 
begin GETSYM? STATEMENT (FSYS 3 

else TESTCFSYS, [3 ,601) 
end? 


then 

* 



Procedure WH1LESTATCFSYS; SYMSET) ? 
begin EXPRESSION CFSYS+ IDOSYM3 ) i 
CHECKS YMC DOS YM# 17 ) ? 

STATEMENT (FSYS 3 
end? 


procedure REPEAT5TAT CFSYS; SYMSET) ? 
begin 5TATLISTCFSYS+ ClJNULSYM] )? 
CHECKSYrt(UNriLSYM, 18 )? 
EXPRESSION (FSYS) 
end? 


procedure qthsrstat (fsys: symset 3 ? 
begin SELECTORCFSYS+ [ASSIGN] 3? 
it TESTSYMC ASSIGN) then 
begin GEISYM; EXPRESSION(FSYS) 
end 
else 

if TESTS YM(LPAREN) then 
begin GETSYM* 

EXPblSTlFSYS+lRPAREN) )? 

CHECKSYM (RPAREN , 8 ) 
end 

end? 

procedure statement? 
begin 

TESTCFSYS+CXDENT) f FSYS » 109) ? 
if TESTSYMt.NSet (STATBEGSYM+ CIDENT] ) then 
begin 

if TESTSYMtBEGINSYM) then 
begin GETSYM? STATLISTCFSYS+ EEND5YM] ) ? 

CHECKSYM (ENDS YM, 131 
end 

6 if TESTSYMC IFSYM) then 

begin GETSYM? IFSTATCFSYS) 
end 
else 

if TESTS YM ( WHILES YM) then 
begin GETSYM? WHILESTAT(FSYS) 
end 

6 1 3L S ^ 

if TESTSYMC REPEATSYM) then 
begin GETSYM? REPEATSTAT CFSYS) 
end 

e S !f TESTSYMCIDENT) then 

begin GETSYM? OTHERS! AT (FSYS) 
end 

end 

end? 


procedure CONSTOEFPArt C FSYS; SYMSET ) ? 
begin 

If testsymcconstsym) then 
begin GETSYM? CONSTDEFLISt(FSYS) 
end 

end? 

procedure TYPEOEFPARt (FSYS ; SYMSET) ? 
begin 

if testsym(typesym) then , 
begin GETSYM? TY PEDEFL IS t CFSYS) 
end 



begin ( * Main Program *) 

: z f £2£f JiSE • Yarsyh»tyfesym , prgc s ym , funcsym , fqrwardsym i ; 

IIrRrrkvM M .-Tr C DfD^ S ^iiCS Y ^S HILESYM / HEPEATSYM ^* 

rn*tT«Pr^M-?D^nM2f£X M fJ N ? NUM A RRA kNUM,IDENT,STRING,LBRACKET]? 

^TMDTV«prlSm S Tl?^§f^ N V§ji^ N H^/ REALNUM ^TRXNGiIDENTiI 

II!ul^i^i s ?*cpolg?gl^fcfefSB^gk^T!r USrIOENT,fNTNU ^ # ^ AlbNUM3? 

TYPEBESSJM ! = [PL US f M|NUS^INfNUK REA1 n6h,STRI»G.IUEOT,I,P»REN, POINTER 
TYPDECL : * C RECORDSXM > ARP syM^SETsf Sf J °^ DSYM ' S£TSYM] ' 

BS&8SS$SS.£cffSii?£S(8S?£i!TilS:iiSgSf«?£Se8*gf?*"' x>> * ,c,,J ' 

GETSYM? 

PROGRAMHEAd ( (SEMICOLON] +DECLBEGSYM+STATBEGSYM ) i 
S&OCKC £E E SlOOi t STA|B|GSYM|DECLiis|^ 


WMV».U % v* w W ^ J » w * n i "iTy LLUOLuO 

K £§2LX£8£§ Y !! tPERIOD) then error ( 

if ERRCOUNTOO then 
begin 

WRITELN; writeln? 

WRITE (OUTPUT, ERRCOUNT); 
^OUTPUT, EMESU 

tty,er6coun 

TTYpEMES) 


l 


WRITE 
WRITE 
WRITE 
end 
else 

begin WRITELN CQUTPUT,N0ERRMESS ) f 
WRITELN (TTY,NOERRMESS) 
end 
end. 



